-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2624
-- card count: 1
-- first card id: 3775
-- list block id: 2852
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 10080 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0xFF00FF00FF00FF00
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xAAAAAAAAAAAAAAAA
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on closeCard
  set the name of this cd to cd fld 1
  lock screen
  hide cd btn 1
  toggleControls
  unlock screen
end closeCard
on newCard
  global noCat
  put 1 into noCat
  lock screen
  answer "Sorry, you must use the Add Card button."
  doMenu "Delete Card"
  go prev
  unlock screen
end newCard
on deleteCard
  global noCat
  if noCat = 1 then
    put 0 into noCat
    exit deleteCard
  end if
  set the name of this cd to "CARD DELETED"
  doCatalog
end deleteCard
on closeStack
  if the freeSize of this stack >= 15000 then
    doMenu "compact stack"
  end if
end closeStack
on openStack
  global noCat
  put 0 into noCat
  hide menubar
  doCatalog
end openStack
on doCatalog
  lock screen
  push cd
  set lockMessages to true
  go first
  put "Updating Catalogue..."
  repeat with i = 1 to the number of cds
    get the short name of cd i
    if word 2 of it is not "id" then
      if it is not "CARD DELETED" then
        put it & return after theList
      end if
    end if
  end repeat
  set script of bg "mainBG" to theList
  pop cd
  set lockMessages to false
  hide msg
  unlock screen
end doCatalog
on enterKey
  toggleControls
end enterKey
on toggleControls
  put not visible of cd btn 1 into showHide
  lock screen
  repeat with cycle = 1 to 5
    set visible of cd btn cycle to showHide
    set visible of cd fld cycle to showHide
  end repeat
  set visible of cd btn 6 to showHide
  set visible of cd btn 7 to showHide
  set visible of cd btn 8 to showHide
  unlock screen with dissolve
end toggleControls